function VecResultsRetracted=FilterAuthorsRetracted(n5,ValueYearRetracted,ValueMonthRetracted,VecAuthorsRetracted,VecSpecialCharacters)

ValueFolder2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsRetracted/';
ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/';
VecResultsRetracted=zeros(7,2);
VecResultsRetracted(:,1)=[12;24;36;48;60;120;Inf];
VecArticleType={'Academic Dissertation' 'Adaptive Clinical Trial' 'Clinical Trial' 'Comparative Study' 'Controlled Clinical Trial' 'Equivalence Trial' 'Evaluation Study' 'Journal Article' 'Meta-Analysis' 'Multicenter Study' 'Observational Study' 'Pragmatic Clinical Trial' 'Randomized Controlled Trial' 'Review' 'Statistics' 'Technical Report' 'Systematic Review' 'Twin Study' 'Validation Study'};
VecArticleType2={'Review' 'Systematic Review'};
VecDate={'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'};
n1Temp2=0;
% % try
%     ValueFile=['ResultsCharacteristicsTempAuthorsRetracted' num2str(n5) '.mat'];
%     ValueTemp=dir([ValueFolder2 ValueFile]);
%     if size(ValueTemp,1)>0
%         load([ValueFolder2 ValueFile]);
%         n1Temp2=n1;
%     end
% % end
n1Temp2=n1Temp2+1;
for n1=n1Temp2:1062
    eval(sprintf('load([ValueFolder ''Results/ResultsFile%d.mat'']);',n1));
    for n2=1:33
        eval(sprintf('VecValueTemp=VecResult2Journal%d;',n2));
        for n3=1:size(VecValueTemp,1)
            ValueTemp=VecValueTemp{n3,1};
            ValueDate=VecValueTemp{n3,5};
            [ValueYear,ValueMonth,ValueDay]=ExtractDate(ValueDate);
            ValueYear=str2num(ValueYear);
            n4=1;
            TestTemp=0;
            while n4<=size(VecDate,2)&&TestTemp==0
                if strcmp(VecDate{1,n4},ValueMonth)==1
                    ValueMonth=n4;
                    TestTemp=1;
                else
                    n4=n4+1;
                end
            end
            if TestTemp==1
                if ValueYear<ValueYearRetracted
                    TestTemp2=1;
                    ValueDurationRetracted=(ValueYearRetracted-ValueYear)*12+ValueMonthRetracted-ValueMonth;
                else
                    if ValueYear==ValueYearRetracted&&ValueMonth<ValueMonthRetracted
                        TestTemp2=1;
                        ValueDurationRetracted=(ValueYearRetracted-ValueYear)*12+ValueMonthRetracted-ValueMonth;
                    else
                        TestTemp2=0;
                    end 
                end
            else
                TestTemp2=0;
            end
            if size(ValueTemp,2)>1&&TestTemp2==1&&ValueDurationRetracted>=0
                [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors]=ExtractAuthor(ValueTemp,0,1);
                ValueArticleType=ComputeArticleType(VecValueTemp{n3,9},VecArticleType,VecValueTemp{n3,10},VecValueTemp{n3,11});
                if ValueArticleType>0&&nAuthors>1
                    n41=1;
                    TestTemp3=0;
                    while n41<=nAuthors&&TestTemp3==0
                        [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthorsTemp]=ExtractAuthor(ValueTemp,n41,2);
                        if size(ValueFirst,2)>=1
                            if strcmps(double(VecAuthorsRetracted),double([ValueLast ' ' ValueFirst(1,1)]),VecSpecialCharacters)>0.5
                                for n51=1:size(VecResultsRetracted,1)
                                    if ValueDurationRetracted<=VecResultsRetracted(n51,1)
                                        VecResultsRetracted(n51,2)=VecResultsRetracted(n51,2)+1;
                                    end
                                end
                                TestTemp3=1;
                            end
                        end
                        n41=n41+1;
                    end
                end
            end
        end
    end
%     if mod(n1,100)==0
%         ValueFile=['ResultsCharacteristicsTempAuthorsRetracted' num2str(n5) '.mat'];
%         save([ValueFolder2 ValueFile],'-v7.3');
%     end
end
